home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_1 / variables.pl < prev    next >
Perl Script  |  1996-03-27  |  132b  |  8 lines
  1. #!./perl
  2.  
  3. @tmp = split(/_/,$ENV{SERVER_NAME});
  4. @tmp[0] =~ s/-/ /g;
  5. $disc_name = @tmp[0]; 
  6. @tmp[1] =~ s/-/ /g;
  7. $disc_rest = @tmp[1];
  8.